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EDTSWFSTRINS = start an INSERT operation $ep-1984 02:15:4 VAX-11 Bliss-32 V 
, 16: sen 1984 9B a ee NI SUMGMASTERSCEDT  SRCSWFSTRINS.BLIGT >” ( 
ZTITLE "EDTSWFSTRINS = start an INSERT operation’ 
MODULE EDTSWFSTRINS ( ! Start r, rg! operaston 
re = 'v04-000' le: WFESTRINS.BLI Edit: JBS1003 
= 


BEGIN 
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Hie Seth fl! (c) 1978, 1980, 1982, 1984 B 
t# DIGIT tk EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'* THIS fe were IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt a 
t* ONLY IN ACC . ey CE WITH THE TERMS OF SUCH Tint ~ WITH Me 


® 
® 
® 
® 
® 
7 
® 
® 
i ROV * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE © 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. . 
ot 
® 
* 
® 
au 
® 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE CR _ RELIABILITY OF ITS 
'@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 

Start an INSERT operation. 

ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
| 
| 
! 
' 
' 
! 
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004 : 

3 ! MODIFIED BY: 

04 ! 1-001 - Original. DJS 23-Feb-1981. This module was greared by 
04 ; extracti ng routine EDTSSSTART_ INS from module EDTWF. 

004 ' 1-002 = Regularize headers. JBS 19=Mar-1981 

st ! 1-003 = Improve the appearance of the Listing. JBS 20-Jun-1983 
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EDTSWFSTRINS EDTSWFSTRINS = start an INSERT operation igese -1984 02:15:4 VAX-11 Bliss-32 V4.0-74 P 
bu s008 Declarations , 12-8681 382 95:38:28 DLEKSVMEMASTERSCEDT SRCSUFSTRINS .BLIeto” (8 
$ 1 9 } $SBTTL ‘Declarations’ 
3 5 § 1 ! TABLE OF CONTENTS: 
8 ah 
; $ 32 ! REQUIRE "EDTSRC: TRAROUNAM'; 
; 8 495 1 FORWARD ROUTINE 
; 9 496 1 EDTSSSTART_INS : NOVALUE; 
3; @& 97 1 
63 rh i INCLUDE FILES 
3 8 230 1! 
; 666 501 1 
H 65 5 § 1 REQUIRE ‘EDTSRC:EDTREQ'; 
; © 8 1 
; 67 » ea 
: 68 0639 1 ! MACROS: 
; 69 ae79 1! 
; 641 1! NONE 
ey Bee$ 1! 
; 7 064 1 ! EQUATED SYMBOLS: 
“ee - 0644 1! 
; «676 0645 1! NONE 
FUR R666 7. 
3 76 064 1 ! OWN STORAGE: 
Se i 0648 1! 
; 0649 1! NONE 
: 79 3930 7 3 
3 80 651 1 ! EXTERNAL REFERENCES: 
; 8 3626 1! 
; @2 0655 1! In the routine 
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H 1 
EDTSWFSTRINS EDTSWFSTRINS = start an INSERT operation 16-Sep-1984 02:15:4 VAX-11 Bliss-32 V4.0-74 Page 3 
704-000 EDTSSSTART_INS = start an INSERT operation 122868-1 382 95:38:28 DLSKSVMSMASTERSCEDT SRCSWFSTRINS.BLIG3” (3) 
H ¢ ° ¢ } ZSBTTL "EDTSSSTART_INS = start an INSERT operation’ 
: § § 1 GLOBAL ROUTINE EDTSSSTART_INS ! Start an INSERT operation 
; 1 : NOVALUE = 
; 6 1 
; 9 6 } 3 
; o9 1 ! FUNCTIONAL DESCRIPTION: 
wh 661 1! 
3 4 O06 1! This routine is called to start the insertion of text. The new Lines 
dae 665 1! will be inserted immediately before the current Line. The insert 
; 0664 1! count, EDTS$L_WK_INSCNT, is set to zero, and the numbers of the current and 
| oe Bey? 1} preceding Lines are saved. 
; $ 1! 
> oe 0667 1 ! FORMAL PARAMETERS: 
; 98 0668 1! 
; WW 0669 1! NONE 
; 100 0670 1! 
: 101 bee) 1 ! IMPLICIT INPUTS: 
; 106 672 1! 
; 06735 1! EDTSSA_WK_LN 
: 104 0674 1! EDTSSL_WK_NXTLNO 
3 109 0675 1! EDTSS$L_WK_STARTNO 
: 106 0676 1! EDTSS$L_LNO_ZERO 
; 107 0677 1! 
; 108 0678 1 ! IMPLICIT OUTPUTS: 
; 109 0679 1! 
; 110 0680 1! EDTSSL_WK_INSCNT 
3; 1 0681 1! 
; Ng 0682 1 ! ROUTINE VALUE: 
5 3 0683 1! 
3; 6116 0684 1! NONE 
: 115 0685 1! 
; 116 0686 1 ! SIDE EFFECTS: 
2 Tir 0687 1! 
; (118 0688 1! NONE 
; 119 0689 1! 
3; te 0690 1 !-- 
3; 121 0691 1 
; 1¢¢ 069 BEGIN 
3; (le 069 
: 124 0694 EXTERNAL ROUTINE 
3 125 0695 EDT$$RD_PRVLN, 
: 126 0696 EDTSSRD_NXTLN; 
; 4 sod 
: 128 698 EXTERNAL 
3 44 0699 EDTSSL_WK_INSCNT : LN BLOCK, ! The count of inserted Lines 
3; 130 0700 2 SA_WK-LN : REF LIN BLOCK, ! Pointer to current Line 
3; (131 0701 EDTSSL_WK_NXTLNO : LN BLOCK, ! Line number following an insert | 
: 132 344 EDTSS$L_WK-STARTNO : LA BLOCK, ! Line number of Line preceding an insert 
: 135 070 EDTSS$L_LNO_ZERO : LN_BCOCK; 
: «(134 Boe 
s 135 705 '¢ ; 
3 136 O70? ; Zero out the insert Line counter 
3 138 0708 é MOVELINE (EDTS$L_LNO_ZERO, EDTSS$L_WK_INSCNT); 
: 140 0710 ! Save the current Line number, bucket number, and Line address 
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TSWFSTRINS EDTSWFSTRINS = start an INSERT operation 1} Se VAX-11 BLi gece 4 
nH sH08 EDTSSSTART_INS = start an INSERT operation 14- ~300 71387 95:32 49 DISKSVMSMA ae cebt OSA SUF STRING. BLI; rqse (3) 
> 141 711 t- 
; 14¢ ar ~ MOVELINE (EDTSSA_WK_LN CLIN_NUM], EDTSSL_WK_NXTLNO); 
: 144 714 i Find the previous Li ber. 
ee ae % previou ne number 
: 146 rig 
: 16 71 IF EDTSSRD_PRVLN () 
: 148 718 THEN 
: 149 719 BEGIN 
: 150 720 MOVELINE (EDTSSA_ WK_LN CLIN_NUM], EDTS$$L_WK_STARTNO); 
; 13 07 1 EDTSSRD_NXTLN () 
; 4 4 3 ¢ ELSE 
: 154 0724 1+ 
3 133 4 2 | _Make the previous Line number 0 if the insert is at the beginning of the buffer. 
: 137 oF i MOVELINE (EDTSS$L_LNO_ZERO, EDTS$L_WK_STARTNO) 
: 159 0729 3 END; ! of routine EDTSS$START_INS 


TITLE EDTSWFSTRINS wt hada es - start an INSERT ope 
3 ration 
-IDENT \vV04-000\ 


EXTRN EDTSSRD_PRVLN, EDTSSRD_NXTLN 
“EXTRN EDTSSL_QK_INSCNT 
-EXTRN EDTSSA A_WK “LN, coro. WK _NXTLNO 
EXTRN EDTS$L_ Wk “START NO 
EXTRN EDT$$L_LNO_ZERO 
.PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
01FC 00000 -ENTRY EDTSSSTART_INS, Save R2,R3,R4,R5,R6,R7,R8 3; 0656 
58 000000006 00 9E 00002 MOVAB EDTS$L_LNO-ZERO, : 
57 000000006 00 9€E 00009 MOVAB EDTSSL~WK_STARTNO, R7 F 
56 000000006 00 3 00010 MOV EDTS$ A“WK"LN, R6 : | 
000000006 00 68 06 28 00017 MOVC EDTSSC Lio ZERO, EDTS$L_WK_INSCNT : 0708 
50 56 BO 0001F MOVL tptsea : 0712 
000000006 00 01 AO 06 28 00022 MOVES #6. TCRO)s EBTSSL _WK_NXTLNO ; | 
000000006 00 99 FB 900¢ CALLS #0. EDTSSRD_P : 0717 
10 0 € 00 LBC ~—s&RO,.:*18 : 
50 66 00 00 MOVL.  EDTSS$A_W RO : 0720 
7 01 AO 06 2 909 8 MOVC3 us, T(RO)7 UPOTSSL _Wk_STARTNO : | 
000000006 00 FB 9905p CALLS EDT$SRD_NXTLN™ : 0721 
67 68 06 28 00045 1$: MOVC3 #6, EDTS$L_LNO_ZERO, EDT$S$L_WK_STARTNO : 0727 
4 00049 RET : 0729 


; Routine Size: 74 bytes, Routine Base: _EDTSCODE + 0000 
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161 


o739 1 
731 1 !<BLF/PAGE> 


EDTSWFSTRINS 
v04-000 


— 
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aR 


Name 
-EDTSCODE 


File 


-$255$0UA28: CED 
~$255$DUA28: CED 


Size: 

Run Time: 

Elapsed Time: 

Lines/CPU Min: 

Semen Ne Rt 
Used 


NS = start an INSERT operation 
NS = start an INSERT operation 


mom wD 
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PSECT SUMMARY 
Bytes 


74 NOVEC,NOWRT, RD, 


Library Statistics 


ee Symbols 


Loaded 


sf 377 14 
L32;1 2 1 


Total 


COMMAND QUALIFIERS 


74 code “" data bytes 
00: 12.4 
4330 
n: 12483 
64 pages 


come bee Complete 
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! of module EDTSWFSTRINS 


Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
wane Pages Processing 
Percent Mapped ime 

3 40 00:00.2 

50 7 00:00.1 
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